var V1,V2: TVec; T: TMtx; begin CreateIt(V1,V2); CreateIt(T); try V1.SetIt(False,[1,2,3,4]); V2.SetIt(False,[2,3,4]); T.Toeplitz(V1,V2); // T becomes: //[1 2 3 4] //[2 1 2 3] //[3 2 1 2] //[4 3 2 1] finally FreeIt(T); FreeIt(V1,V2); end; end;